home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
keypic.zip
/
KEYS1.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-12-30
|
3KB
|
102 lines
1000 '+++++++++++++++++++++++++++
1010 '+++++++++++++++++++++++++++
1020 'MUST HAVE AN IBM WITH A ++
1030 'GRAPHICS CARD TO SEE THE ++
1040 'KEYS DISPLAY. FROM DOS> ++
1050 'ENTER BASICA, LOAD KEYS, ++
1060 'AND RUN. ++
1070 ' GRAPHS: ++
1080 ' PICONE.PIC ++
1090 ' PICFIV.PIC ++
1100 ' FONT1.PIC ++
1110 ' PGRAPH2.PIC ++
1120 '+++++++++++++++++++++++++++
1130 '+++++++++++++++++++++++++++
1140 SCREEN 1:KEY OFF
1150 READ X$
1160 'load the screen buffer
1170 'point SEG at screen buffer
1180 DEF SEG=&HB800
1190 'load PICTURE into screen buffer
1200 BLOAD X$,0
1210 IF X$="PICONE.PIC" THEN 1310
1220 GOTO 1150
1230 DATA PICONE.PIC,PICTWO,PICTHRE,PICFOUR
1240 DATA PICFIV
1250 DATA PICELE,PICFIFT,PICSIXT
1260 DATA PICSEVT,PICEIGT,pic20,pic21
1270 DATA pic22,picstar
1280 'DATA pic26,line
1290 '
1300 '
1310 'LINE (130,75)-(190,125),1,B
1320 DIM BALL1%(600)
1330 GET (130,75)-(190,125),BALL1%
1340 FOR X=1 TO 50
1350 PUT (130+X,75),BALL1%,XOR
1360 PUT (130-X,75),BALL1%,XOR
1370 'NEXT X
1380 '++++++++++++++++++
1390 'FOR X=1 TO 50
1400 PUT (130,75+X),BALL1%,XOR
1410 PUT (130,75-X),BALL1%,XOR
1420 NEXT X
1430 '++++++++++++++
1440 'CHAIN "a:bload"
1450 'SCREEN 1:KEY OFF
1460 X$="PICFIV.PIC"
1470 'load the screen buffer
1480 'point SEG at screen buffer
1490 DEF SEG=&HB800
1500 'load PICTURE into screen buffer
1510 '
1520 BLOAD X$,0
1530 '
1540 '
1550 'SCREEN 2:KEY OFF
1560 X$="FONT1.PIC"
1570 'load the screen buffer
1580 'point SEG at screen buffer
1590 DEF SEG=&HB800
1600 'load PICTURE into screen buffer
1610 IF X$="PICFOUR" THEN 1660
1620 BLOAD X$,0
1630 LINE (0,195)-(639,199),0,BF
1640 FOR X=1 TO 6000:NEXT
1650 '
1660 SCREEN 2:CLS
1670 'load the screen buffer
1680 'point SEG at screen buffer
1690 DEF SEG=&HB800
1700 'load PICTURE into screen buffer
1710 BLOAD "PGRAPH2.PIC",0
1720 'OR X=1 TO 6000:NEXT
1730 'RESTORE
1740 FOR I=1 TO 5
1750 LOCATE 15,56:PRINT" "
1760 FOR J=1 TO 900:NEXT J
1770 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
1780 FOR J=1 TO 900:NEXT J
1790 NEXT I
1800 LOCATE 15,56:PRINT"PRICE DIRECT:";" UP"
1810 FOR I=1 TO 10^4:NEXT
1820 SCREEN 1
1830 RANDOMIZE N
1840 N=VAL(RIGHT$(TIME$,2))
1850 FOR X=200 TO 1 STEP -7
1860 LINE (157,35)-(0,X),3:NEXT X
1870 FOR X=0 TO 320 STEP 7
1880 LINE (157,35)-(X,0),3:NEXT X
1890 FOR X=0 TO 199 STEP 7
1900 LINE (157,35)-(319,X),3:NEXT X
1910 '
1920 FOR X=1 TO 319 STEP 3
1930 LINE (157,35)-(X,199):NEXT X
1940 FOR X=1 TO 319 STEP 5
1950 LINE (157,35)-(X,199),2:NEXT X
1960 FOR X=319 TO 1 STEP -3
1970 LINE (157,35)-(X,199):NEXT X
1980 FOR X=1 TO 319 STEP 5
1990 LINE (157,35)-(X,199),2:NEXT X
2000 GOTO 1450